home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03027_Script_3027 < prev    next >
Text File  |  1983-01-27  |  1KB  |  42 lines
  1. on HILITE  _inizio,_fine,_sprite, _cast_name
  2.   global attore,men
  3.   set elewin to string (the windowlist)
  4.   if offset ("menubar",elewin) > 0 then
  5.     if the visible of window "menubar" = true then 
  6.       exit
  7.     end if
  8.   end if
  9.   if offset ("popup",elewin) > 0 then
  10.     if the visible of window "popup" = true then 
  11.       exit
  12.     end if
  13.   end if
  14.   
  15.   if not voidp (_cast_name) then
  16.     set _cast_hilite to _cast_name
  17.   else
  18.     set _cast_hilite to "ms000"
  19.   end if
  20.   global dove  
  21.   set   _num to _fine-_inizio
  22.   set   _libero to true
  23.   put  "num fine e inizio", _num,_fine,_inizio
  24.   repeat while _num>=0
  25.     if dove<>_num+1 then
  26.       if rollOver(_num+_sprite) and _libero then
  27.         set the member of sprite (_num+_sprite) to member (_fine+_num+1) of castLib _cast_hilite
  28.         set  _libero to false
  29.       else
  30.         set the member of sprite (_num+_sprite) to member (_inizio+_num) of castLib _cast_hilite
  31.       end if      
  32.     end if
  33.     set  _num to _num-1
  34.   end repeat
  35. end
  36.  
  37. --  Spiegazione della procedura HILITE
  38. --  _inizio: primo membro (immagine)
  39. --  _fine: ultimo membro (immagine)
  40. --  _sprite: posizione nello score del primo membro
  41. --  _cast_name: cast che contiene gli hilite (di default e'  "Ms000" )
  42.